home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / gnat1792.zip / gnat179b / t-adainc / a-chlat1.ads < prev    next >
Text File  |  1994-05-19  |  19KB  |  290 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT RUNTIME COMPONENTS                          --
  4. --                                                                          --
  5. --                A D A . C H A R A C T E R S . L A T I N 1                 --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.2 $                              --
  10. --                                                                          --
  11. --           Copyright (c) 1992,1993,1994 NYU, All Rights Reserved          --
  12. --                                                                          --
  13. -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  14. -- terms of the  GNU General Public License as published  by the Free Soft- --
  15. -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  16. -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  17. -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  18. -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  19. -- for  more details.  You should have  received  a copy of the GNU General --
  20. -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  21. -- to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
  22. --                                                                          --
  23. ------------------------------------------------------------------------------
  24.  
  25.  
  26. package Ada.Characters.Latin_1 is
  27.  
  28.    pragma Pure (Ada.Characters.Latin_1);
  29.  
  30.    ------------------------
  31.    -- Control Characters --
  32.    ------------------------
  33.  
  34.    NUL                  : constant Character := Character'Val (0);
  35.    SOH                  : constant Character := Character'Val (1);
  36.    STX                  : constant Character := Character'Val (2);
  37.    ETX                  : constant Character := Character'Val (3);
  38.    EOT                  : constant Character := Character'Val (4);
  39.    ENQ                  : constant Character := Character'Val (5);
  40.    ACK                  : constant Character := Character'Val (6);
  41.    BEL                  : constant Character := Character'Val (7);
  42.    BS                   : constant Character := Character'Val (8);
  43.    HT                   : constant Character := Character'Val (9);
  44.    LF                   : constant Character := Character'Val (10);
  45.    VT                   : constant Character := Character'Val (11);
  46.    FF                   : constant Character := Character'Val (12);
  47.    CR                   : constant Character := Character'Val (13);
  48.    SO                   : constant Character := Character'Val (14);
  49.    SI                   : constant Character := Character'Val (15);
  50.  
  51.    DLE                  : constant Character := Character'Val (16);
  52.    DC1                  : constant Character := Character'Val (17);
  53.    DC2                  : constant Character := Character'Val (18);
  54.    DC3                  : constant Character := Character'Val (19);
  55.    DC4                  : constant Character := Character'Val (20);
  56.    NAK                  : constant Character := Character'Val (21);
  57.    SYN                  : constant Character := Character'Val (22);
  58.    ETB                  : constant Character := Character'Val (23);
  59.    CAN                  : constant Character := Character'Val (24);
  60.    EM                   : constant Character := Character'Val (25);
  61.    SUB                  : constant Character := Character'Val (26);
  62.    ESC                  : constant Character := Character'Val (27);
  63.    FS                   : constant Character := Character'Val (28);
  64.    GS                   : constant Character := Character'Val (29);
  65.    RS                   : constant Character := Character'Val (30);
  66.    US                   : constant Character := Character'Val (31);
  67.  
  68.    --------------------------------
  69.    -- ISO 646 Graphic Characters --
  70.    --------------------------------
  71.  
  72.    Space                : constant Character := ' ';  -- Character'Val(32)
  73.    Exclamation          : constant Character := '!';  -- Character'Val(33)
  74.    Quotation            : constant Character := '"';  -- Character'Val(34)
  75.    Number_Sign          : constant Character := '#';  -- Character'Val(35)
  76.    Dollar_Sign          : constant Character := '$';  -- Character'Val(36)
  77.    Percent_Sign         : constant Character := '%';  -- Character'Val(37)
  78.    Ampersand            : constant Character := '&';  -- Character'Val(38)
  79.    Apostrophe           : constant Character := ''';  -- Character'Val(39)
  80.    Left_Parenthesis     : constant Character := '(';  -- Character'Val(40)
  81.    Right_Parenthesis    : constant Character := ')';  -- Character'Val(41)
  82.    Asterisk             : constant Character := '*';  -- Character'Val(42)
  83.    Plus_Sign            : constant Character := '+';  -- Character'Val(43)
  84.    Comma                : constant Character := ',';  -- Character'Val(44)
  85.    Hyphen               : constant Character := '-';  -- Character'Val(45)
  86.    Minus_Sign           : Character renames Hyphen;
  87.    Full_Stop            : constant Character := '.';  -- Character'Val(46)
  88.    Solidus              : constant Character := '/';  -- Character'Val(47)
  89.  
  90.    --  Decimal digits '0' though '9' are at positions 48 through 57
  91.  
  92.    Colon                : constant Character := ':';  -- Character'Val(58)
  93.    Semicolon            : constant Character := ';';  -- Character'Val(59)
  94.    Less_Than_Sign       : constant Character := '<';  -- Character'Val(60)
  95.    Equals_Sign          : constant Character := '=';  -- Character'Val(61)
  96.    Greater_Than_Sign    : constant Character := '>';  -- Character'Val(62)
  97.    Question             : constant Character := '?';  -- Character'Val(63)
  98.    Commercial_At        : constant Character := '@';  -- Character'Val(64)
  99.  
  100.    --  Letters 'A' through 'Z' are at positions 65 through 90
  101.  
  102.    Left_Square_Bracket  : constant Character := '[';  -- Character'Val (91)
  103.    Reverse_Solidus      : constant Character := '\';  -- Character'Val (92)
  104.    Right_Square_Bracket : constant Character := ']';  -- Character'Val (93)
  105.    Circumflex           : constant Character := '^';  -- Character'Val (94)
  106.    Low_Line             : constant Character := '_';  -- Character'Val (95)
  107.    Grave                : constant Character := '`';  -- Character'Val (96)
  108.    LC_A                 : constant Character := 'a';  -- Character'Val (97)
  109.    LC_B                 : constant Character := 'b';  -- Character'Val (98)
  110.    LC_C                 : constant Character := 'c';  -- Character'Val (99)
  111.    LC_D                 : constant Character := 'd';  -- Character'Val (100)
  112.    LC_E                 : constant Character := 'e';  -- Character'Val (101)
  113.    LC_F                 : constant Character := 'f';  -- Character'Val (102)
  114.    LC_G                 : constant Character := 'g';  -- Character'Val (103)
  115.    LC_H                 : constant Character := 'h';  -- Character'Val (104)
  116.    LC_I                 : constant Character := 'i';  -- Character'Val (105)
  117.    LC_J                 : constant Character := 'j';  -- Character'Val (106)
  118.    LC_K                 : constant Character := 'k';  -- Character'Val (107)
  119.    LC_L                 : constant Character := 'l';  -- Character'Val (108)
  120.    LC_M                 : constant Character := 'm';  -- Character'Val (109)
  121.    LC_N                 : constant Character := 'n';  -- Character'Val (110)
  122.    LC_O                 : constant Character := 'o';  -- Character'Val (111)
  123.    LC_P                 : constant Character := 'p';  -- Character'Val (112)
  124.    LC_Q                 : constant Character := 'q';  -- Character'Val (113)
  125.    LC_R                 : constant Character := 'r';  -- Character'Val (114)
  126.    LC_S                 : constant Character := 's';  -- Character'Val (115)
  127.    LC_T                 : constant Character := 't';  -- Character'Val (116)
  128.    LC_U                 : cons